eingabe <- function(zahl) {
  if (zahl >= 0 && zahl <= 1000) return (1)
  return (0)
}

print(eingabe(500))
print(eingabe(1500))



zahlenausgabe <- function(zahl) {
  ausgabe <- "1 ,"
  for (i in (2:zahl - 1)) ausgabe <- paste(ausgabe,i, ",")
  i <- i + 1
  ausgabe <- paste(ausgabe,i)
  print(ausgabe)
}

zahlenausgabe(20)



fakultt <- function(zahl) {
  ergebnis <- 1.0
  for (i in (2:zahl)) ergebnis <- ergebnis * i
  return (ergebnis)
}

print(fakultt(5))
